Top 10k strings from Cash Book Accounting (1984)(Gemini Marketing).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [Z80] (TOSEC-v2007-01-01) /
Back to the directory listing
6 batchtotal=0
5 r(batchtotal-c(1
4 b(trno,n)=
3 w$="BANK("+t$+")":
3 total=total+
3 batchtotal=batchtotal+
3 b$(trno,n,1
3 ;":";batchno+1
2 w$="CASH":
2 w$="BANK(3)"
2 w$="BANK(2)"
2 w$="BANK(1)"
2 trno=trno+1
2 total=total+b(n,z):
2 t$*(i$="C")
2 line=line+2
2 line,col;t$;
2 i$=j$(n,21
2 d(trno,n):
2 d$(trno,n,1
2 b$(y-z,m,1
2 ICRODRIVE? ";
2 ;(("BANK ACCOUNT 1,2 OR 3?")
2 ;"IS THIS CORRECT? (y/n)":
2 ;"INSERT DATA TAPE, THEN ANY KEY":
2 ;"ENTER FILE NAME: ":
2 ;"% VAT:`"
2 );n;" ";n$(n)(
2 )''" 3 -";h$(14
1 z+maxtrno>69
1 z+maxtrno:
1 z$=w$+h$(12
1 z$=w$+h$(11
1 z$=w$+" RECEIPTS":
1 z$=((n$(code)+s$)(
1 y$="1");(h$(25
1 y$="1");((h$(code-69
1 x=x+(t$(n)="."):
1 w$="BANK":
1 vat3=f(102
1 vat2=f(101
1 v$="Y"))+(110
1 update=220
1 total=total+f(n):
1 total;("D"
1 total+("."
1 ther(80 column)?":
1 t$>maxtrno
1 t$="d"))-(
1 t$*(i$="D"):
1 t$*(i$="D")-
1 t$)+"00")(
1 t$'"CONTROL TOTAL
1 r(total)=0
1 pupdate=230
1 printc=135
1 option=190
1 leni=len)+"00")(
1 jnlno=jnlno+1
1 j$(jnlno)=k$(1
1 incorrb=215
1 incorr=175
1 i$="C")+22
1 f=f(code):
1 f(code)=f(code)-amt
1 f(code)=f(code)+amt:
1 debit=debit+f(n)*(f(n)>0
1 debit=debit+f(n)
1 debit=debit+
1 d(y,m)=b(y-z,m):
1 d$(y,m)=b$(y-z,m):
1 credit=credit-f(n)*(f(n)<0
1 credit=credit+
1 c$(batchno,3
1 c$(batchno,12
1 c$(batchno,1
1 bcheck=320
1 batchtotal=batchtotal+total:
1 batchtotal=batchtotal+c(b+3
1 batchtotal:
1 batchno=batchno+1
1 batchcorr=900
1 batchcorr:
1 b;": ";c$(b,12
1 b;": "'c$(b,12
1 b$(trno,n)=e$(n+1
1 amt=b(y-z,m):
1 accode=250
1 X printer or
1 GEMINI MARKETING LIMITED1983**programmed by C.P.HOWELL**
1 ASSETTE or
1 ASSETTE OR
1 < Freehold property F/H prop-Acc.depn. Leasehold property L/H prop-Acc.depn Vehicles
1 ;("BANK ACCOUNT 1,2 OR 3?")
1 ;("A/C No?(1-93,0:MENU): "
1 ;'''';" 1 - ";h$(11
1 ;"Version 9/84"
1 ;"VERIFYING":
1 ;"VERIFY? (y/n)":
1 ;"UPDATED FOR BATCH NO:";batchno:
1 ;"TRANSACTION TOTAL =";:
1 ;"T# TOTAL
1 ;"System devised by"''
1 ;"SEARCHING FOR DATA FILE":
1 ;"REWIND TAPE, PLAY, and any key":
1 ;"REFERENCE:
1 ;"RECONFIGURE FOR VAT? ";
1 ;"READY PRINTER":
1 ;"Programming by"''
1 ;"Print batches, store data, then re-run program"
1 ;"PRESENT BALANCE: ` ";:
1 ;"POUND CODE=";
1 ;"PLEASE CONFIRM TO EXIT (y/n)"
1 ;"O.K.-VERIFIED":
1 ;"O.K.-VERIFIED"
1 ;"NEW BALANCE:
1 ;"N-are you sure(y/n)?":
1 ;"GROSS AMOUNT:`";
1 ;"DIFFERENCE ON NOMINAL";
1 ;"DEBIT/CREDIT (D/C)? ";
1 ;"D.J.GINGELL,M.A.,A.C.A."'"D.A.PERKINS,B.A.,A.C.A.,A.T.I.I."
1 ;"CASH BOOK ACCOUNTING";
1 ;"C.P.HOWELL,B.Sc.,F.C.A."
1 ;"ARE YOU EXTRACTING OUTPUT VAT ATPOINT OF SALE? ";
1 ;"AMOUNT"''
1 ;"AMOUNT"'
1 ;"AMOUNT TO ENTER: `";
1 ;"ACCOUNTS: `";
1 ;":";trno'''
1 ;":";jnlno+1
1 ;"*** FILE SAVED ***"
1 ;"** NO MORE SPACE **":
1 ;"** INSUFFICIENT SPACE **";
1 ;"** INCORRECT **":
1 ;"** CORRECT **":
1 ;"** BATCH TOTAL INCORRECT **":
1 ;"** BATCH TOTAL CORRECT **":
1 ;"** 10 BATCHES - NO MORE **";
1 ;" UPDATING ":
1 ;" TRANSACTION ";
1 ;" ROOM FOR ";70
1 ;" KEEP TAPE RUNNING ":
1 ;" ENTER OPTION "
1 ;" CONFIRM TO UPDATE DATA (y/n)? "
1 ;" CHECKING NOMINAL ACCOUNTS ":
1 ;" ** NEW BALANCE TOO LARGE ** ":
1 ;" !! WARNING !! ";
1 ;" JOURNAL ";
1 ;" CASHBOOK MENU "''''
1 ;" CASH PAYMENTS - BATCH ";
1 ;" BANK PAYMENTS - BATCH ";
1 ;" Any key to continue ":
1 ;" ";w$;" RECEIPTS - BATCH ";
1 ;" DATA DELETED ":
1 1984 Gemini Marketing Limited 21, Dinan Way Trading Estate
1 -z;" TRANSACTIONS ONLY":
1 -len)+("0"
1 *(w$="CASH")+2000
1 )=".")+t$+("."
1 );t$;" ";:
1 );n;" ";(n$(n)+s$)(
1 );i$'" ref: ";j$(n,3
1 );code;" ";n$(code)(
1 );"TOTALS ";:
1 );"Ref: ";d$(trno,n,3
1 );" BATCH PRINTOUT FOR ";(g$+s$)(
1 );" (BATCH TOTAL = ";
1 )+"(0-menu)")
1 ))+t$+(j$(n,21
1 )''"ACCOUNT";s$(
1 )''" 3 - ";h$(14
1 )''" 2 -";h$(25
1 )''" 2 -";h$(12
1 )''" 2 - ";h$(12
1 )''" ACCOUNT";s$(
1 )'"TOTALS";s$(
1 )'"BATCH TOTAL = `";:
1 )'" ref: ";d$(trno,n,3
1 ''''"TRIAL BALANCE (";g$;")"'q$(
1 ''''"Please confirm to exit (y/n)"
1 ''''"Have you:"'" -printed all batch details"'" -stored data to tape? (y/n) ";
1 ''''"Bye!":
1 ''''" BATCH PRINTOUT
1 ''''" 1 -";h$(16
1 '''"VAT RATE 1 (%): 0"'"VAT RATE 2 (%): ";
1 ''"TRANSACTION No:";t''
1 ''"TRANSACTION NO: ";t''
1 ''"JOURNAL ACTIVITY"'q$(
1 ''"BATCH ";
1 ''"(or any other key for menu)"
1 ''" CODE";
1 '"WHICH TRANSACTION TO CORRECT? (Enter number)"
1 '"TRIAL BALANCE (";g$;")"'q$(
1 '"JOURNAL ACTIVITY"'q$(
1 '"Gross amt-ZERO % VAT:`"
1 '"Gross amt-";vat3;
1 '"Gross amt-";vat2;
1 '"DO YOU HAVE A FILE TO LOAD? ";
1 '"ACCOUNT";
1 & MENU (any other key)
1 "VAT RATE 3 (%): "
1 "Microdrive (y/n)?":
1 "Input VAT ","Purch's(1)","Purch's(2)","Purch's(3)","Purch's(4)"
1 "HOW MANY RATES OF VAT ARE
1 "GOTO 1000" to restart program without losing data
1 "ENTER TODAY'S DATE ";
1 "CASHBOOK" accounting system:
1 "CASHBOOK"
1 "Account:";n$(
1 " 6. ";h$(14
1 " 4 -";h$(14
1 " 1 -";h$(11
1 " ";n;". ";h$(n+25
1 " ";n;" -";h$(n+16
1 " ";n;" -";h$(n+1
1 for: ";g$'q$(
1 Wife's wages
1 Vehicles-Depn.
1 Vehicles-Acc.depn. Plant & equipment Plant&equip-Acc.depnFixtures & fittings F&F-Acc.depn.
1 VAT refunds/paymentsCapital A/C (1)
1 VAT output tax
1 VAT SUMMARY
1 VAT SUMMARY
1 VAT NOMINAL ACCOUNTS
1 Use of home
1 UPDATE MEMO A/C's
1 Travelling expenses Carriage
1 Total sales
1 Telephone
1 Tel(0395)265165"
1 TRANSACTION
1 TOTAL SALES
1 T# TOTAL
1 Sub-contract
1 Stock & WIP
1 Sales (4)
1 Sales (3)
1 Sales (2)
1 STORE DATA TO TAPE
1 STORE DATA
1 SCREEN/PRINT ACCOUNTS
1 REFERENCE"'q$(
1 Purchases (4)
1 Purchases (3)
1 Purchases (2)
1 Postage & stationeryAdvertising
1 Plant&equip-Depn. F&F-Depn.
1 PURCHASES FOR RESALE
1 PRINT TRIAL BALANCE
1 PRINT BATCH DETAILS
1 Own consumption
1 Other loans (2)
1 Other loans (1)
1 Other current assetsCreditors/accruals Purchase ledger
1 Opening stock & WIP Purchases (1)
1 OTHER EXPENSES
1 Net payments
1 NET PAYMENTS
1 Motor expenses
1 Long term loans (1) Long term loans (2)
1 Loan interest
1 Legal & professionalSundry expenses
1 LIST MEMO ACCOUNTS
1 L/H Property-Depn. F/H Property-Depn. Sale of fixed assets
1 Insurance
1 ITEM CANCELLED - RE-ENTER
1 I/P at zero VAT
1 I/P at VAT SR(1) I/P at VAT SR(2)
1 I/P AT ZERO VAT
1 I/P AT VAT S.R.(2)
1 I/P AT VAT S.R.(1)
1 How many transactions?
1 Hire purchase (1) Hire purchase (2) HP interest res.(1) HP interest res.(2) Other liabilities VAT input tax
1 H.P. interest
1 GROSS AMOUNT:`
1 Exmouth, Devon
1 Equipment hire
1 Enter batch total: `
1 Electricity
1 EXIT PROGRAM
1 Drawings (3)
1 Drawings (2)
1 Deposit interest
1 Debtors/prepayments Sales ledger
1 Closing stock & WIP Sundry income
1 Capital intro.(1) Capital intro.(2) Capital intro.(3) Drawings (1)
1 Capital A/C (3)
1 Capital A/C (2)
1 CREDIT"'q$(
1 CASH RECEIPTS
1 CASH PAYMENTS
1 Bank loan
1 Bank deposit
1 Bank charges
1 Bad debts
1 BATCH DETAILS AS ENTERED
1 BANK RECEIPTS
1 BANK PAYMENTS
1 Accountancy
1 APPLICABLE? (0,1,2,or 3) ";
1 (up to 25)
1 (nominal) ";"`";:
1 SET UP/AMEND NOMINAL A/C LIST NOMINAL ACCOUNTS